Procedure PredMin(Const TimeIn:TimeDate; Var TimeOut:TimeDate);

    This sets TimeOut to TimeIn - 1 minute.

    If TimeIn.Day = 0  Then  only  the  time  is  decreased  and the date
    is not affected.  That is,  00:00:00  -  1 minute is 23:59:59 and the
    date remains  unchanged.   If  TimeIn.Day  >  0  then  if the time is
    00:00:00 the date will be  set  to  the  previous  day as well as the
    time being changed.

    Examples

    TimeIn := 1/1/1991, 11:22:00
    PredMin(TimeIn,TimeOut) = TimeOut := 1/1/1991, 11:21:59

    TimeIn := 1/1/1994, 00:00:00
    PredMin(TimeIn,TimeOut) = TimeOut := 31/12/1993, 23:59:59

    TimeIn := 0/1/1991, 00:00:00
    PredMin(TimeIn,TimeOut) = TimeOut := 0/1/1991, 23:59:59